home *** CD-ROM | disk | FTP | other *** search
/ DS-CD ROM 2 1993 August / DS CD-ROM 2.Ausgabe (August 1993).iso / geschaef / ds0093 / topfakt / atrlist1.for < prev    next >
Text File  |  1993-06-30  |  3KB  |  58 lines
  1. ^17 ^E
  2. ^10^BRechnungsliste ^b^17
  3.                                                                                   Seite: #SEITE:8:0
  4. Zeitraum vom #VonDat  bis #BisDat                                                 Stand: #DATUM
  5. ─────────────────────────────────────────────────────────────────────────────────────────────────
  6.  Rg.Nr. Datum    Kd.Nr. Name                 Nettobetr.     Mwst1    Mwst.½  Rg.Betrag      offen
  7. /234567 12345678 123456 12345678901234567890 1234567890 123456789 123456789 1234567890 1234567890 12345 12 12 12 12
  8. ─────────────────────────────────────────────────────────────────────────────────────────────────
  9. !LISTE:58
  10. #Atr_Nr #RgDatum #KdNr  #Name                #Netto:10  #St1:9:2  #St2:9    #Betrag:10 #OffenText:10 #STOR#AG#AB#LS#GS
  11. /
  12.   !#Anz:= #Anz+ 1                            // Zähle die Anzahl der gedruckten RG
  13.   !#SummeSt1 :=   #SummeSt1 + #St1           // Summe Mwst (voller Mwst.Satz)
  14.   !#SummeSt2 :=   #SummeSt2 + #St2           // Summe Mwst (halber Mwst.Satz)
  15.   !#SummeBetrag:= #SummeBetrag+ #Betrag      // Summe der RgBeträge
  16.   !#SummeOffen:=  #SummeOffen+ #Offen        // Summe der Offenen Beträge
  17. !ENDE LISTE
  18. /
  19. !WENN #LetzteSeite
  20. ─────────────────────────────────────────────────────────────────────────────────────────────────
  21. Anzahl der aufgelisteten Rechnungen: #ANZ:8:0    Summe: #SummeSt1:9 #SummeSt2:9 #SummeBetrag:10 #SummeOffen:10
  22. !ENDE WENN
  23. !SEITENAUSWURF
  24. !FORMULARENDE
  25.  
  26.  
  27. !PLATZHALTER
  28.   #VonDat,        vondatum                 // wird vom Benutzer eingegeben
  29.   #BisDat,        bisdatum                 // wird vom Benutzer eingegeben
  30.   #RgGedruckt,    ako->atyp4= .t.
  31.   #Atr_nr,        ako->at_nr
  32.   #KdNr,          ako->at_kdnr
  33.   #Name,          Substr( ako->at_n2, 1,20) // 20 Zeichen vom Nachnamen
  34.   #RgDatum ,      ako->at_rgdat            // Datum der Rechnung
  35.   #AtrDat,        ako->at_dat              // Auftrag angelegt am
  36.   #Fusstext,      ako->at_fuss
  37.  
  38.   #Betrag,        ako->at_wert             // Rechnungsbetrag Brutto
  39.   #St1,           ako->mwst1incl           // Mwst Anteil voller Mwstsatz
  40.   #St2,           ako->mwst2incl           // Mwst Anteil halber Mwstsatz
  41.   #Netto,         ako->at_wert- ako->mwst1incl - ako->mwst2incl   // Netto-Rechnungsbetrag
  42.   #Gutschrift,    opos->gutschrift         // Gutschrift aus Offenen Posten
  43.   #Gezahlt,       opos->gezahlt            // Gezahlte Summe zu dem OP
  44.   #Offen,         IF( opos->(Eof()), 0, ako->at_wert - opos->gezahlt - opos->gutschrift)
  45.   #OffenText,     IF( opos->(Eof()), '          ', #Offen)
  46.  
  47.   #STOR,          IF( ! Empty( ako->Rg_stordat), 'Storn', '     ')  // Auftrag storniert?
  48.   #AG,            IF( ako->atyp1, 'AG ',  '   ')   // Angebot gedruckt?
  49.   #AB,            IF( ako->atyp2, 'AB ',  '   ')   // Auftragsbestätigung gedruckt?
  50.   #LS,            IF( ako->atyp3, 'LS ',  '   ')   // Lieferschein gedruckt?
  51.   #GS,            IF( ako->atyp5, 'GS ',  '   ')   // Gutschrift gedruckt?
  52.  
  53.   #Anz,           nAnz                        // nur zum Zählen der Rechnungen
  54.   #SummeOffen,    nSummeOffen                 // Summe der Offenen Posten
  55.   #SummeBetrag,   nSummeBetr                  // Summe der Rechnungsbeträge
  56.   #SummeSt1,      nSummeSt1                   // Summe Mwst (voller Mwst.Satz)
  57.   #SummeSt2,      nSummeSt2                   // Summe Mwst (halber Mwst.Satz)
  58. !ENDE PLATZHALTER